Comparaison des méthodes de la fonction expresso() du package affy

load("./dataToComp.RData")
# Gènes en colonnes / lignes = méthodes
data.to.comp = as.data.frame(t(data.to.comp))
data.to.comp

Divisions des méthodes point par point :

Background correct :

# Liste de toute les méthodes
methods = row.names(data.to.comp)
# Dataframe rempli de valeur binaire (0/1)
upset = Upset.Binary.Dataframe(data.to.comp)

# comparaison pm
methods_bg.cor = upset[grepl("background",methods)]
methods_bg.cor
upset(methods_bg.cor, 
      sets = c("background mas Up", "background rma Up"), 
      sets.bar.color = "#56B4E9", 
      order.by = "freq", 
      )

upset(methods_bg.cor, 
      sets = c("background mas Down", "background rma Down"), 
      sets.bar.color = "#56B4E9", 
      order.by = "freq", 
      )